home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / allfiles / tokyo / ufdemo.dir / 00017_Script_17 < prev    next >
Text File  |  1999-04-25  |  3KB  |  149 lines
  1. on startMovie
  2.   repeat with v = 5 to 10
  3.     set the visible of sprite v to 1
  4.   end repeat
  5. end
  6.  
  7.  
  8. on idle
  9.   rightArrow
  10.   leftArrow
  11.   exitMovie
  12. end
  13.  
  14.  
  15. on rightArrow
  16.   if rollover(142) then
  17.     set the blend of sprite 142 to 50
  18.   else
  19.     set the blend of sprite 142 to 100
  20.   end if
  21. end
  22.  
  23.  
  24. on leftArrow
  25.   if rollover(141) then
  26.     set the blend of sprite 141 to 50
  27.   else
  28.     set the blend of sprite 141 to 100
  29.   end if
  30. end
  31.  
  32.  
  33. on sample
  34.   if rollover(145) then
  35.     set the blend of sprite 145 to 50
  36.   else
  37.     set the blend of sprite 145 to 100
  38.   end if
  39. end
  40.  
  41.  
  42.  
  43. on cursHand
  44.   if rollover(7) then
  45.     touch
  46.   else
  47.     if rollover(9) then
  48.       touch
  49.     else
  50.       if rollover(142) then
  51.         cursor -1
  52.       else
  53.         if rollover(141) then
  54.           cursor -1
  55.         else
  56.           cursor -1
  57.         end if
  58.       end if
  59.       
  60.     end if
  61.   end if
  62. end
  63.  
  64.  
  65.  
  66. on touch
  67.   if the mousedown then 
  68.     cursor [30,31]
  69.     
  70.   else
  71.     cursor [28,29]
  72.   end if
  73. end 
  74.  
  75.  
  76. on moveStart
  77.   global ASPEED
  78.   SET ASPEED = (1)
  79. end
  80.  
  81. on movePlay
  82.   global ASPEED
  83.   movetowards 7,ASPEED
  84.   movetowards 8,ASPEED
  85.   movetowards 11,ASPEED
  86.   --  movetowards 9,ASPEED
  87. end
  88.  
  89. on movetowards pic,speed
  90.   if the mouseH > the locH of sprite pic + speed then
  91.     set the locH of sprite pic to the locH of sprite pic + speed
  92.     
  93.   else
  94.     if the mouseH < the locH of sprite pic - speed then
  95.       set the locH of sprite pic to the locH of sprite pic - speed
  96.     else
  97.       set the locH of sprite pic = the mouseH
  98.     end if
  99.   end if
  100.   
  101.   if the mouseV > the locV of sprite pic + speed then
  102.     set the locV of sprite pic to the locV of sprite pic + speed
  103.   else
  104.     if the mouseV < the locV of sprite pic - speed then
  105.       set the locV of sprite pic to the locV of sprite pic - speed
  106.     else
  107.       set the locV of sprite pic = the mouseV
  108.       
  109.     end if
  110.   end if
  111. end
  112.  
  113.  
  114.  
  115. on SpritesFloatingDown
  116.   global bounce
  117.   repeat with sp = 9 to 9
  118.     set bounce = -10
  119.     if bounce > 10 then 
  120.       set the locV of sprite sp to 0
  121.     end if
  122.     
  123.     set the locV of sprite sp to the locV of sprite sp + 1
  124.     if the locV of sprite sp > the stageBottom then
  125.       set the locV of sprite sp to bounce
  126.     end if
  127.     
  128.   end repeat
  129.   
  130. end
  131.  
  132. on flipPic
  133.   set the castNum of sprite 13 = the castNum of sprite 13 + 1
  134.   if the castNum of sprite 13 > 141 then set the castNum of sprite 13 to 118
  135. end
  136.  
  137.  
  138. on exitMovie
  139.   if rollover(143) then
  140.     set the blend of sprite 143 to 50
  141.   else
  142.     set the blend of sprite 143 to 100
  143.   end if
  144. end
  145.  
  146.  
  147.  
  148.  
  149.